home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
imb9008.zip
/
TESTARRY.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-07-12
|
1KB
|
57 lines
'----------------------------------------------------------------
'Test lookups from an array to compare to string tables
'----------------------------------------------------------------
DECLARE FUNCTION RandomSymbol$ ()
DIM A$(1000)
RANDOMIZE
PRINT "Testing array initialize and lookup"
A1! = TIMER
FOR I = 1 TO 1000
Q: A$(I) = RandomSymbol$
FOR J = 1 TO I - 1'Test for duplicates
IF A$(I) = A$(J) THEN GOTO Q:
NEXT J
LOCATE 1, 50: PRINT USING "#### \ \"; I; A$(I);
NEXT I
A2! = TIMER
PRINT A2! - A1!
FOR I = 1 TO 1000
Test$ = A$(1000)
FOR J = 1 TO 1000
IF A$(J) = Test$ THEN
EXIT FOR
END IF
NEXT J
NEXT I
A3! = TIMER
PRINT A3! - A2!
END
DEFINT A-Z
'----------------------------------------------------------------
'Create a random symbol that can be looked up
'----------------------------------------------------------------
FUNCTION RandomSymbol$
R$ = ""
FOR I = 1 TO INT(6 * RND + 5)
L1: C% = INT(26 * RND + 65) 'A to Z
IF C% = ASC("\") THEN GOTO L1:
R$ = R$ + CHR$(C%)
NEXT I
RandomSymbol$ = R$
END FUNCTION